home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 April / 64er_Magazin_84-04_1984_Markt__Technik_de.d64 / drawline demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  54 lines
  1. 100 print"[147]"tab(10)"sinusplot - demo
  2. 110 [153]"es wird ein achsenkreuz und dann
  3. 120 print"eine sinusfunktion in hochauf-
  4. 130 [153]"loesender grafik geplottet.
  5. 140 print"es werden die zeiten zuerst fuer
  6. 150 [153]"eine reine basic-version und dann
  7. 160 print"fuer eine version, die die maschinen-
  8. 170 [153]"sprachen grafikaid benuetzt, gemessen.
  9. 180 print"bitte eine taste druecken ![157]";
  10. 190 poke198,0:poke204,0:wait198,1:poke204,1:getx$
  11. 200 print" ":ti$="000000"
  12. 210 v=53248:ad=8192:rem demo aus 64 intern seite 91 - 92
  13. 220 a1=peek(v+17):a2=peek(v+24)
  14. 230 pokev+17,59
  15. 240 pokev+24,24
  16. 250 fori=1024to2023:pokei,1:next
  17. 260 fori=8192to16383:pokei,0:next
  18. 270 y=100:forx=0to319:gosub360:next
  19. 280 x=160:fory=0to199:gosub360:next
  20. 290 x=0
  21. 300 fori=-3.14159265to3.14159265step.0196349541
  22. 310 y=100+99*sin(i):gosub360:x=x+1:next
  23. 320 t1$=ti$:fori=1to1000:next
  24. 330 pokev+17,a1:pokev+24,a2
  25. 340 print"[147]das war das reine basicprogramm.
  26. 350 [153]"es dauerte ";:x$[178]t1$:[141]620:[137]390
  27. 360 oy[178]320[172][181](y[173]8)[170](y[175]7):ox[178]8[172][181](x[173]8)
  28. 370 ma[178]2[174]((7[171]x)[175]7):av[178]ad[170]oy[170]ox
  29. 380 [151]av,[194](av)[176]ma:[142]
  30. 390 [153]"bitte eine taste druecken !cmd";
  31. 400 [151]198,0:[151]204,0:[146]198,1:[151]204,1:[161]x$
  32. 410 [153]" ":ti$[178]"000000"
  33. 420 [158]49152:[158]49155:[158]49158,16
  34. 430 y[178]100:[158]49170,y:x[178]160:[158]49176,x
  35. 440 x[178]0
  36. 450 [129]i[178][171]3.14159265[164]3.14159265[169].0196349541
  37. 460 y[178]100[170]99[172][191](i):[158]49164,x,y:x[178]x[170]1:[130]
  38. 470 t2$[178]ti$:[129]i[178]1[164]1000:[130]
  39. 480 [158]49194
  40. 490 [153]"loaddas war das programm mit grafikaid.
  41. 500 print"es dauerte ";:x$=t2$:gosub620
  42. 510 print"im gegensatz zum 1. beispiel mit":x$=t1$:gosub620
  43. 520 print"die linienzuege werden jetzt geloescht!
  44. 530 [153]"bitte eine taste druecken !cmd";
  45. 540 [151]198,0:[151]204,0:[146]198,1:[151]204,1:[161]x$
  46. 550 [153]" ":[158]49152:[158]49158,10
  47. 560 x[178]0
  48. 570 [129]i[178][171]3.14159265[164]3.14159265[169].0196349541
  49. 580 y[178]100[170]99[172][191](i):[158]49167,x,y:x[178]x[170]1:[130]
  50. 590 y[178]100:[158]49173,y:x[178]160:[158]49179,x
  51. 600 [129]i[178]1[164]1000:[130]
  52. 610 [158]49194:[128]
  53. 620 [153][202](x$,3,2)" min und "[202](x$,5)" sek":[142]
  54.